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DISCLAIMER 



Although each program has been tested by its contributor, 

no warranty, express or implied, is made by the contributor 

or any User's Group, as to the accuracy and functioning of 

the program and related program material, nor shall the fact 

of distribution constitute any such warranty, and no responsibility 

is assumed by the contributor or any User's Group, in connection 

therewith. 



COMMON USERS GROUP PROGRAM REVIEW AND EVALUATION 
(fill out in typewriter, ink or pencil) 

drogram No. ' Date 

Program Name: . . 

1. Does the abstract adequately describe what the program is and what Yes No_ 

it does ? 

Comment 

2. Does the program do what the abstract says ? Yes No_ 

Comment 

3. Is the description clear, understandable, and adequate? Yes No_ 

Commen t 

4. Are the Operating Instructions understandable and in sufficient detail? Yes No_ 

Commen t - 

Are the Sense Switch options adequately described (if applicable) ? Yes No_ 

Are the mnemonic labels identified or sufficiently understandable ? Yes No_ 

Comment 



5. Does the source program compile satisfactorily (if applicable) ? Yes No_ 

Comment 

f^}. Does the object program run satisfactorily?' Yes No_ 

Comment 

7. Number of test cases run . Are any restrictions as to data, 

size, range, etc. covered adequately in description? Yes No_ 

Comment v 

8. Does the Program meet the minimal standards of COMMON? Yes No_ 

Comment ; 

9. Were all necessary parts of the program received? Yes No_ 

Comment 

10. Please list on the back any suggestions to improve the usefulness of the program. 
These will be passed onto the author for his consideration. 

Please return to: Your Name 



IBM Corporation Company 
Program Information Department 

40 Saw Mill River Road Address 
Hawthorne, New York 10532 



m , , nAAnrNnTA rn A n Users Group Code 

f% Attn: PREP FORM COORDINATOR 

*"THIS REVIEW FORM IS PART OF THE COMMON ORGANIZATION'S PROGRAM REVIEW AND 
EVALUATION PROCEDURE. NONMEMBERS ARE CORDIALLY INVITED TO PARTICIPATE 
IN THIS EVALUATION. 

3 2/2/67 J 



1620 10. 3. 031 January 3, 1964 



Statement 231 IW1 = A4 (L) + . 5 in program 1 has been 
replaced by statements: 

231 IF (A4(L) - 99999.) 701,125, 125 

701 IW1 =A4 (L) + . 5 



This correction eliminates the possibly of getting an Error E9 
when A4(L) becomes larger than 99999. 



PERT - LESS 



L. Standlee Steenrod 
Computer Research Center 
9 B & PA 

University of Missouri 
Columbia, Missouri 

1620 Users Group Code 321 

August 30, 1963 



Modifications or revisions to this program, as they occur, 
will be announced in the appropriate Catalog of Programs 
for IBM Data Processing Systems. When such an announce- 
ment occurs, users should order a complete new program 
from the Program Information Department. 



Deck Labeling Sheet 



Deck 1 - Fortran Program 1 

Hash Total 75367450954418300571 



Deck 2 - Fortran Program 2 

Hash Total 58007769218123676099 

Deck 3 - Sample Problem - Input to Program 1 
Hash Total 73730844640539713845 



Deck 4 - Output from Program 1 

Hash Total 78920772480045238602 

Deck 5 - Output from Program 2 

Hash Total 54307502721721210377 

The above decks were Hash Totaled with the 1620 Users Group 
Program 1.6.031. 



ABSTRACT 



Title: PERT-LESS 

Classification: Management Science 

Author: Organization: L. Standlee Steenrod, 

Computer Research Center, University of Missouri 



Date: August 20, 1963 



Users Group Membership Code: 3211 

Direct Inquiries to name: L. Standlee Steenrod, Computer Research 

Center, 9 B & PA, University of Missouri, Columbia, Missouri 
Phone: GI 9-9533 

Description/purpose: 

This is a critical path program devised to compute schedules of 
paths and their associated "least cost" through a network of 
activities of a large project. The schedules are generated 
between the project's normal time and crash time and each 
contains start and finish times, costs and floats for each 
activity. These schedules enable a time and its associated 
" least cost" to be chosen. 



5. Method: Critical Path Programming by Mauchly Associates; other 

information - not available 

6. Restriction/range: Not applicable 

7. Specifications: 

a. Storage used by program: 60 K 

b. Equipment required by program: 

Card system 

Auto divide, Indirect addressing, 
Floating point hardware 



Program can be used on lesser machine if dimensions are reduced 
or part of labeling in program deck 2 is removed 
c . Programming type 
Fortran II 



8. Remarks: a. This program is a modification of SHARE program 
1188 PA GMCP. 

b. Program consists of two (2) decks. Deck I gives 
intermediate output, Deck II gives final output 
for listing. 
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All inquiries concerning the following program should be 
directed to: 

L. Standlee Steenrod 
Computer Research Center 
9 B & PA 

University of Missouri 
Columbia, Missouri 

Users Group Code 3211 

Note 

These programs (2) are a translation of the SHARE program 1188 
PA GM XP for the 7090 to a form usable on the 1620. Because of this 
much of the mathematical method is unavailable. 

Summary 

Critical Path Programming is a method devised to plan and control 
large projects composed of many activities that must be completed in 
certain sequences. In these programs the critical path method has 
been programmed in the FORTRAN language. This permits the computer 
to accept a description of a project structure and time-cost information 
for each activity in order to generate a series of project schedules. 

Each project schedule has a certain duration and cost associated 
with it. This cost arises from assigning to each activity in the 
project a scheduled duration and related cost. In general, the shorter 
the activity, the higher the activity cost. 

The project time related to a schedule results from the durations 
assigned the various activities together with the precedence relation- 
ships binding the activities. For each schedule generated, its project 
cost is the least possible for that project time. 

The FORTRAN programs are designed for flexibility. Various types 
of computer runs can be made, and alternative forms of output are 
obtainable. These are described in detail under Input. 

Discussion 

I . Background 

The basis of these programs is PERT (Project Evaluation and Review 
Technique) developed for the U. S. Navy to help measure and control 
progress on the Polaris System. 

The PERT model assumes that a project can be broken down into 
activities (or sub - projects) and that the sequence relationship 
between these activities can be specified. A graphical representation 
of a project can be obtained by depicting activities as arrows, each 
beginning and ending at a point called a benchmark or event. Several 
activities may begin or end at a single event. 

Figure I is used as an example of such a graphical representation 
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of a small project. 




FIGURE I 



In this example, a network of 6 activities (arrows a,b,c,d,e,f) defined 
by 5 events (circles) might represent a small project. The project 
begins with activity "a" is completed, event "2" is realized and activities 
"b" and "d" are immediately begun in parallel. When "d" is complete at 
at event "3", activities "e" and "f" are begun in parallel. Event "4" 
is realized, or occurs, only when both "b" and "e" are completed. 

The same structure represented by Figure I can be described by 
listing the 6 pairs of event numbers describing the 6 activities; let 
us also list a sample completion time for each of these activities. 



Activity Completion Time in Weeks 

(a) 1,2 3 



(d) 


2,3 


2 


(b) 


2,4 


9 


(e) 


3,4 


5 


(f) 


3,5 


6 


(c) 


4,5 


4 



FIGURE II 

Thus, Figure II is logically equivalent to Figure I. In the PERT 
System it is only necessary to supply information of the type in 
Figure II to analyze the status of a project. 

Project completion time can be obtained by tracing all paths 
connecting the first event (1) to the last event (5), and adding 
together the completion times of activities along each given path. 

The path giving the largest sum would be called the "critical 
path" and its sum would be the project duration. In Figure I, three 
paths connect events (1) and (5). These are: 

a-b-c (3+9+4=16) 
a-d-e-c (3 + 2 +5+ 4 =1 4) 
a-d-f (3+2+6=11) 



© 
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Path a-b-c is critical, and project time is 16. By giving three 
time estimates for each activity, uncertainty is incorporated by the 
PERT method into the overall project completion time. 

This program employs a network representation and also activity 
costs. Each activity is assumed to have a "normal time" for completion 
and an associated "normal cost". Likewise, each activity is assumed 
to have a "crash time", generally less than the normal, and on associated 
"crash cost" - generally higher than normal cost. The Critical Path 
Programming Method assumes that in the time - cost plane, the "normal 
point" can be connected by a straight line to the "crash point" to 
define an activity cost function. Figure III below represents this 
relationship. 



Cost 



Crash Cost 
(XA4) 



Normal Cost 
(XA2) 



Activity Cost-Time 
Function 



Crash 

Time 

(XA3) 



Normal 

Time 

(XA1) 



FIGUREVIII 



The Method assigns each activity a duration between crash and 
normal XA3,XA1 , at the associated cost. 



See PERT, Summary Report Phasel, Special Projects Office, Bureau of 
Naval Weapons, Department of the Navy, Washington, D.C. 
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An algorithm developed by J . E. Kelly, Jr. of Mauchly Associates 
generates a series of project schedules (assignments of times to activities) 
such that for each project schedule, its associated cost is the least 
possible for the related total project time. 

The first schedule generated is the "normal" project schedule 
which results from setting all activities at their normal times. This 
is clearly the least cost and longest project schedule. Then, successive 
schedules are generated down to a "crash" time project schedule which 
is the shortest possible time and the least expensive for that time. 
The number of schedules is unknown in advance, depending on project 
structure as well as activity cost-time curves. 

This generates a project cost-time function which when linearly 
connected . is like Figure IV below. 



Project 
Cost 




Project Cost-Time 
Function 



-—--Normal Schedule 



i ; Project 

Crash 
Project 
Time 

Figure IV 



Normal 
Project 
Time 



The project's cost-time curve can then be scanned and the 
appropriate duration and cost point for the project can be selected. 
Corresponding to each point on the curve (Figure IV) , a schedule 
is generated and each activity set at a completion time between normal 
and crash times. Schedules between indicated points can be computed 
from the schedules associated with the two neighboring points. 



II . Program Description 

This program is composed of two decks. The first deck does the 
major part of the computation and provides intermediate output to be 
used as input into program II. Program II primarily arranges and 
labels the final output. This output must be listed on a special 
board described later. 

III . Input Data 

The input for Program I is divided into four simple parts. 
Let us assume that a project has "N" events and "LL" activities. 

a) The first data card for a computer run has an integer 
punched in column 2. In the program it sets the value 

of a control variable called "19". This variable defines 
three possible types of computer runs related to the 
project. 19=1: Generates all possible characteristic 

project schedules. 
= 2 : Generates "normal" schedule only 

(the longest possible project duration) 
= 3 : Generates "normal" and "crash" project 

schedules. The "crash" schedule in this 

case results when all activities are set 

at "crash" time. 

b) The second part of the input data consists of four cards 
(cards 2 through 5 of the data input deck) containing project 
description information that will subsequently appear on the 
schedule printouts. 

The first of these four cards contains the date to appear on 
all schedules from this machine run. It is punched in columns 
1-12, in any convenient manner (e.g., 2 MARCH 61 or 3/1/61, etc.). 

The second of these cards has punched into columns 1-36 the division 
or entity involved in the project. Any format within columns 
1-36 is permissible. 

The third card contains the project description punched in columns 
1-72, in any desired manner. 

The fourth card has punched in column 1 through 6 the time units 
(e.g., "WEEKS") appropriate to the input data for this computer 
run. In columns 7-18 are punched the appropriate cost units 
(e.g., "DOLLARS" or "1000 DOLLARS "A 

c) The third part of the input data consists of "LL" activity 
cards followed by a trailer card with a negative, non-zero 
integer punched in columns 6-10. One card should be present 
for each activity in the project. The card format, for each 
activity, is as follows: 
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1) Columns 1-5: Preceding event number. 

2) Columns 6-10: Succeeding event number. This must be 
larger than the number in columns 1-5. 

3) Columns 12-40: Activity description (any format). 

4) Columns 41-45: "Normal" activity time. A decimal 

"XA1" point is assumed between columns 

44 and 45. Do not punch the point. 



5) Columns 46-55: 
"XA2" 



6) Columns 56-60: 
"XA3" 



7) Columns 61-70: 
"XA4" 



"Normal" activity cost. A decimal 
point is assumed between columns 
54 and 55. Do not punch the point. 

"Crash" activity time. Decimal point 
assumed between 59 and 60 - do not 
punch it. 

"Crash" activity cost. Decimal point 
assumed between 69 and 70, do not punch 
it . 



8) Columns 71-72: This field is normally not punched, 

hence is treated as a zero. Any non-zero 
integer in this field causes the 
activity to be set at either "normal" 
or "crash" time, but at no point in 
between . 

When all "LL" activity cards are prepared, they must be sorted 
in ascending sequence: major sort on columns 1-5, minor on 
columns 6-10. Finally, the trailer card follows with a negative 
integer in columns 6-10. 

The following conditions on XA1, XA.2 , XA3 and XA4 must hold 
for each activity card. 

1) XA3 < XA3 (crash time < normal time) 

2) XA2 < XA4 (normal cost < normal time) 

3) if XA3 = XA1, cannot have XA4 + XA2 

(infinite slope on time - cost 
function) 

d) The fourth part of the input data consists of "N" event cards 
followed by a trailer card with a negative, non-zero integer 
punched in columns 6-10. One card should be prepared for each 
event in the project - punched as follows: 

1) Columns 6-10: Event number 

2) Columns 12-71: Event description-any format 



/3 
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The "N" event cards must be sorted in ascending sequence on 
columns 6-10. The trailer card follows. 

This concludes the input for Program I. 



The input for Program II is the intermediate output from 
Program I plus a header card which contains parameters that 
specify what schedules are to be drawn from the data for 
output printing. 

The intermediate output consists of partially completed schedules. 
The last card of the intermediate output deck contains "N" - the 
number of events, "LL" - the number of activities, "MIK" - the 

maximum schedule count (k=0 , 1,2, ,MIK) , "I 9" - for this 

computer run. This card must be moved to the front of the 
intermediate output deck. The header card is then placed 
in front of this card. 



During a machine run, if I 9 =1, all characteristic schedules 
are generated; this set begins with the normal and terminates 
with the crash. Each schedule has a characteristic project 
time and project cost. In this case, the above mentioned 
parameters permit a selection of these schedules for printout 
according to several criteria that will become evident in the 
following descriptions. 

If I 9 =1, the leader card is punched in the following manner. 



Columns 1-5 (KE) =1 print every "KB" schedule 

=2 selects only such schedules for 
printing that differ from their 
predecessor by "DT" in project 
duration or "DC" in project cost 
=3 selects only such schedules for 
printing that differ from their 
predecessor by "DT" in project 
duration . 

=4 no output printing of schedules. 



Columns 6-10 (KD)=1 ,2 , . . . ; if "KE" -1, KD is the sampling 
interval for printing out schedules. 
Thus, if KD=3, schedules 0,3,6,9,... 
would be printed. 

Columns 11-15 (IR) =0 

Columns 16-20 (INDIR) = will eventually be used to 

incorporate indirect project costs. 



Columns 21-30 (DT) 



A ten digit time increment with 
a decimal point assumed or punched 
before column 40 (see "KE" above) . 



Columns 



31-40 (DC) = A ten digit project cost increment with 
a decimal point assumed or punched 
before column 50 (see "KE" above) . 
Don't punch if KE=1,4. 

If 19 = 2 or 3, the columns 26-50 (INDIR ,DT ,DC) are ignored. KE 
and KD are both punched one, IR is punched zero. 

Most of the options for preparing printer output are summarized 
in the following table. 



EDITING OPTIONS 



Desired 
Schedules 



Variable Settings on Parameter Card 





KE 


KD 


IR 


INDIR 


DT 


DC 


All Schedules 


1 


1 











Normal, Every AK th , Crash 


1 


AK 











Normal, AT orAC, Crash 


2 









. AT 


AC 


Normal, AT AND AC, Crash 


3 









AT 


AC 


No Schedules 


4 
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SUMMARY OF INPUT DATA 




'N" Event Cards 
1 Trailer Card 



' "LL" Activity Cards 
+ 1 Trailer Card 



Input 
Program II 



[ Intermediate 
Output 

N,LL,MIK,I9 



1 Parameter Card 
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IV. Output 

All the selected schedules are printed and then the project 
time-cost curve is printed at the end. 

Each schedule selected for output printing is arranged into 
three parts. Common project information is shown on every page. 

a) Activity List 

The first part of every schedule report contains a detail 
line for each activity. Printed with each activity is the 
minimum schedule information: the activity "Duration" and 
"Direct Cost". In addition, the report provides the 
earliest start and finish, the latest start and finish, 
and three floats - total, free, and independent. Exact 
definitions of these quantities can be found in "Definitions". 

b) Event List 

The second part of every schedule report contains a detail 
line for each event. A detail line is prepared for each 
event giving its earliest and latest occurrence times. 

c) Critical Activities 

The third part of every schedule contains a detail line for 
each critical activity . Since such activities have zero 
float values are not printed. The other information that 
appeared for these critical activities under "activity List" 
is repeated here for convenience. 

All output is to be listed with a special 407 Panel Board (diagram 
in Appendix A) or the "FORGO" panel board. 

V. Miscellaneous Details 

a) Constraints on Project Size 

Number of activities (LL) < 50 
Number of events (N) < 50 

These restrictions are due to the dimension statements. The 
size may be increased somewhat with no overlap or if Disk 
File is available the number can easily be increased. 

b) Program Stops 

Only one stop besides the ones at the end of each program is 
provided. It appears in Program I on the typewriter as 

ERROR - CORE 3 

STOP 

If this error occurs, or any other irregularity, first 
check the input data as the error will usually be found 
here . 
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c) Scaling of Input Data 

J. E. Kelley's algorithm is an "integer" algorithm. Hence, to 
assure convergence, it is necessary to scale input data. To 
be safe, activity costs as described under III - c, should 
be kept less than 10-> in magnitude. Should they be larger, 
we would suggest a change of cost units (e.g., substitute 
"Thousands of Dollars" for "Dollars") . 

d) Event Numbering 

The events of the project network must be numbered such that 
the "head" of an activity arrow has a larger event number 
than its "tail". 

e) Accuracy 

Since the algorithm is an "integer" algorithm some errors 
occur due to truncation. These errors should be expected 
and in relation to the total should be small. 

Definitions 

a) General Definitions 

1. Total Float for activity (I, J) is defined to be the 
latest occurrence of event J minus the sum of the 
earliest occurrence of event I and the duration of 
activity (I, J) . 

2. Free Float for activity (I, J) is defined as the earliest 
occurrence for event J minus the sum of the earliest 
occurrence of event I and the duration of activity (I, J). 

3. Independent Float for activity (I, J) is defined to be 
the earliest occurrence of event J minus the sum of the 
latest occurrence of event I and the duration of activity 
(I,J). 

b) Definitions of Variables used in the FORTRAN Programs. 

1. N: Number of events in the project network. 

2. LL: Number of activities in the project network. 

3. B: The total fixed, direct cost for a schedule. 



4. IK: The number of a schedule (IK = , 1 , 2 , . . . ,MIK) 
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5. IA1(L): The preceding event number of the Lth activity. 

6. IA2(L): The succeeding event number of the Lth activity. 

7. A4(L): Absolute value of slope of time - cost curve of 

activity "L" 



8. A8 (L) 

9. A9 (L) 
10. A10(L) 



"Crash" time for activity "L". 
"Normal" time for activity "L". 
Duration of activity "L". 



VII. Operating Instructions 

First clear the computer by pressing 

INSTANT STOP 

RESET 

INSERT 

Type on the typewriter 160001000000 

Then press the R-S button on the typewriter or RELEASE, START 
on the computer, 

Wait about 15 seconds then press 

INSTANT STOP 
RESET 

Set 1/0, Parity switches to stop; overflow to program. 

Place Program Deck I, Subroutine Deck* and Input Data for Program I 

in the 1622 Read Hopper. 

Press LOAD on the 1622 and PUNCH START on the 1622. 

When the typewriter types "LOAD SUBROUTINES", press START on 
the 1620. 

When the typewriter types "ENTER DATA", press START on 
the 1620. 

When the "READER NO FEED" light on the 1620 lights, press READER 
START on the 1622. 



*If the last card of Program I is numbered 807 in columns 78, 79, 80, 
the Subroutines are not in the program and must be added separately. 
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When Program I is finished, the typewriter will type "END OF 
PROGRAM 1, LOAD PROGRAM 2, AND DATA IN PROPER ORDER - STOP". 

Remove the blank cards from the Punch Hopper, press NON PROCESS 
RUNOUT on the 1622, remove the 2 blank cards from the end of 
the deck and then take the last card from this deck and place 
it on the front of the deck. Place the header card in front 
of this card. This is now the input data to Program II. 

Clear the computer again as directed before. 

Place Program Deck II, Subroutine Deck* and Input Data for 
Program II in the 1622 Read Hopper. 

Press LOAD and PUNCH START on the 1622. 

When the typewriter types "LOAD SUBROUTINES", press START on 
the 1620. 

When the typewriter types "ENTER DATA", press START on the 1620. 

When the "READER NO FEED" light on the 1620 lights, press READER 
START on the 1622. 

When Program II is finished, the typewriter will type "STOP". 

Remove the blank ca^ds from the Punch Hopper, press NON PROCESS 
RUNOUT on the 1622, remove the 2 blank cards from the end of 
the deck. This is the final output ready for listing on the 
407 Printer with special panel (see Appendix A) . 

VIII. Equipment Required 

1620 computer (60 K memory) 
1622 card Reader - Punch 
407 Printer 

Fortran II Compiler - 1620 - FO - 019 Version 1 



*If the last card of Program II is numbered 717 in columns 78, 79, 80, 
the Subroutines are not in the program and must be added separately. 
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Appendix A 

Panel Wiring: 

This panel is to be used to list the output from Program II. 
The FORGO panel can also be used if the wire to the overflow 
(upper left section) is removed, this controls the printing 
of the student number, page number and the data at the top 
of each page. 

This panel is controled by characters in column 1 and performs 
in the following way. 



Column 1 407 Control 

blank Normal operation 

c Print a C in column 1. 

+ No space before printing. 

(zero) Double space before printing. 

1 Shift columns 25-72 of card to 

column 73-120 of sheet. 

1-5 Skip to channels 1-5 on the 407 

carriage control tape 

J-n Short skip to channels 1-5 of the 

407 carriage control. 



All other characters cause some combination of the above operations. 

Carriage Control Tape: 

This tape should be punched as follows: 



Column 


Punch 


2 


1-5 


16 


4 


22 


3 


33 


2,4 


44 


3 


49 


4 


62 


12 


68 


1-5 


82 


4 


88 


3 


99 


2,4 


110 


3 


116 


4 


123 


12 



The tape should be 132 columns long. 



♦ 



INTERNATIONAL BUSINESS MACHINES CORPORATION Printed in U.S.A. 



IBM 407, 408, 409 ACCOUNTING MACHINES, CONTROL PANEL DIAGRAM FIXED 408, 409 CARRIAGE CONTROL PANEL 
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Appendix B 

The following are the program listings. 



C PROGRAM 1 

DIMENSION 21 (50) ♦ I Al(50).lA2(50>.A4(50).At(50> . A9( 5Q> ♦ IE1 < 50 > 
DIMENSION IE2<50>*A3<S0> 

DIMENSION IE*(50) t IA5(50),E5(50),A6(50)»A7(50) 
1 F0RMAT< 12) 

3 FORMAT(2I5.7A4»A2»2(F5«0»F10«0) »F2«0) 

4 FORMAT(SX*I5.10(A4»A2t ) 

8 FORMAT(2I5»7A4,A2«2(F5.0»F10.0).F10.0) 
106 FORMAT! 2t A4*A2) /6I A4.A2) /12 ( A4.A2) /3< A4.A2) » 
C REM) AND PUNCH JOB DESCRIPTION CARD 

REAO 1*19 

READ 106, (21(11). Il«l»*6) 

PUNCH 106*(Z1(I1> *I1«1*46> 

NNA»1 

L»0 

B«0 

REM) 3*rAl(L).IA2<D»tZim*I»l*i)»XAl.XA2*XA3.XA4*XA5 

XA2»100.*XA2 

XA4»100«*XA4 

IF(1A2<LH17S*132*132 

132 IF{XA1-XA3U*«.148»J33 

133 IF(XA4-XA2)148»14S.I3S 
148 A4(L>-0.0 

Z«XA2 

60 TO 161 
155 V*»l. 

IF(XA5>146.147.146 
M6 W—l. 

1*7 A4(L)«W»tXA4-XA2)/<XAl-XA3) 

Z«XA4+A4(L)»XA3»VV 
161 B«B+Z 

A8(L)«XA3 

A9(L)*XA1 

Z-Z/10OQ. 

XXA1«XA1 

XXA2-XA2/100. 

XXA3*XA3 

XXA4-XA4/100. 

PUNCH 8.IAl<U»IA2tLU«Zim.I»1.8).XXAl.XXA2.XXA3.XXA4.Z 
IF(A4<D-1*)7S.73.231 
73 IF|A4<L)>223*T6*223 

76 IF(XA3>77. 78*77 

77 VM«-1. 
SO TO 90 

78 VM«1. 

60 TO 90 

225 VM«ABSF(A4(L))/A4(L) 
90 IF(VM)226*228»228 

226 IF(A4(L)+1«)125, 227*227 
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227 A4(L)— 1. 
60 TO 125 

228 IF(A8(L)-A9(L) )230t229.230 

229 A4(L)«0.0 
GO TO 125 

230 A4(L)»1. 
GO TO 125 

231 IWl-A4(L>+«5 
A4(L)»IW1 

GO TO 125 
173 LL-L-1 
N«l 

110 REAO 4.IE1(N)»<Z1(I), 1-1.20) 

IF(IEKN) ) 122, 113. 113 
113 PUNCH 4,IE1(N).CZ1(I).I*1,20) 

N=N+1 

GO TO 110 
122 N«N-1 

I2«l 

IE4(1 )«1 
C RENUMBERING NODES 

DO 210 13-1, LL 

206 IF (IAK 13 )-IEl{ 12 )) 207*210.207 

207 I2«I2+1 
IE4( I2)-I3 
GO TO 206 

210 IA1(I3)-I2 
I3«l 

217 DO 222 I2«1.N 

218 IF(IA2(I3)-IE1( 12) )217.219,222 

219 IA2(I3)-I2 
I3-I3+1 

IF(13-LL)218.218,223 

222 CONTINUE 

223 DO 224 12»1,N 
E5(I2)*0.0 

224 IE1(I2)«I2 
IE4(N)-LL+1 

1500 GO TO(1505. 1735. 1735) . 19 
1505 N0*N-1 

DO 1570 I«1,N0 

K1-IE4(I) 

K2«IE4(I+1)-1 

DO 1560 K=K1,K2 

J»IA2(K) 

X=A9(K)+E5( I ) 

IF(E5( J) -X) 1550.1560.1560 
1550 E5(J)-X 
1560 CONTINUE 
1570 CONTINUE 

.COMPUTER 
TECHNOLOGY 
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IK-0 

1590 DO 1595 L-l.LL 

A3(L)«0.0 

IA5(L>«0.0 
1595 A6(L>-0. 

DO 1690 I-l.NO 

K1«IE*(H 

K2«IE4<I+1>-1 

DO 1680 L-K1.K2 

J-IA2CL) 

A6(L)-A9CL>+E5C I >-E5< J) 

A7<L)»A8<L)+E5< I >-E5< J) 

IF(A7<L)> 1650*1675. 1650 
1550 IF<A6(L>> 1655* 1665. 1655 
1655 IA5(L)«1 

GO TO 1680 
1665 IA5(L)-2 

60 TO 1680 
1675 IA5<L)-3 
1680 CONTINUE 
1690 CONTINUE 
C 1735 STARTS CORE 3 

DIMENSION A90<50),A100<50>»E6<50) 
1735 DO 1952 L-l.LL 

A100(L)-A9(L> 
1952 A90(L)«A9(L) 

IK-0 
2000 TC-0. 

DO 2011 J-l.LL 

IF(A4(J) J2002.2007.2007 

2002 V— 1. 

2003 IF ( A100< J )— A90( J ) ) 2006 » 2004. 2004 

2004 IF(A4< J>+1. >2010,2C05.2005 

2005 A90(J)«0.0 
SO TO 2011 

2006 A100( J)«A8(J) 
GO TO 2004 

2007 V-l. 

IF (A4( J) -1. ) 2009. 2009. 2010 

2009 A90U)*0. 
GO TO 2011 

2010 A90(J)»A100( J)*A4( J)*V 
TC-TC+A901 J) 

2011 CONTINUE 
TC-B-TC 

DO 2050 I«1.N 
E5UI-0. 
2050 E6U)-.95E37 
NO-N-1 

DO 2100 I-l.NO 



K1-IE4U1 

K2«IE4(I+1)-1 

DO 2090 K-K1.K2 

J-IA2CK) 

X»A100(K)+E5(I) 

IF ( E5 ( J) -X) 2071. 2090. 2090 
2071 E5(J)-X 
2090 CONTINUE 
2100 CONTINUE 

E6(N)«E5(N> 

DO 2140 I-l.NO 

IO-N-I 

K1-IE4U0) 

K2«IE4(I0+1)-1 

DO 2130 K-K1.IC2 

J«IA2 (<) 

X»E6( J)-AIOO(IC) 

IF C E6 (10 >-X) 2130. 2111. 2111 
2111 E6(I0)*X 
2130 CONTINUE 
2140 CONTINUE 

TC-TC/1000. 

X«E6(N)/10. 

PUNCH 5.IK.TC.X.8 
5 FORMAT (I4.3E12.6) 

DO 2180 J-l.LL 
2180 A90{J)«A90IJ)/1000. 

PUNCH 9»(A100( H.I-l.LL) 

PUNCH 9.(A90U> .I-l.LL) 

DO 2220 I-l.NO 

K1-IE4( I > 

K2«IE4(I+1>-1 

DO 2220 L-K1.K2 

A90fL)-E5( I ) 

J=IA2(L) 
2220 A100<L)«E6( J) 

PUNCH 9,<A90< I) .I-l.LL) 

PUNCH 9.(A100(I»»I-1.LL) 

DO 2270 1*1. NO 

K1-IE4(I J 

K2-IE4C I + U-l 

DO 2270 L-K1.K2 

A90tL)*E6<I) 

J-IA2 (L) 
2270 A100<L)«E5(J> 

DO 2278 J=1.N 

E5( J)-E5< J)/10. 
2278 E6< J)-E6( J>/10. 

PUNCH 9. ( A90( I ) .I-l.LL ) 

PUNCH 9»<A100( I ). I-l.LL) 
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PUNCH 10 ♦ (E5 < I ) » 1*1 »N) 
PUNCH 10,<E6(I > .I«1.N) 
9 FORMAT(8E10.4) 
10 FORMAT ( 8E10.4) 
2500 60 TO<2510, 9000,2505. 9000) .19 
2505 DO 2507 L-l.LL 
2507 A100(I_)«A8(L) 
I9«4 

60 TO 2000 
2510 IF(NNA-1>2514. 2512, 2514 
2512 IK»0 
2514 CONTINUE 
4000 DO 4005 1-2. N 
4005 IEKIJ-4 

IE2(1) — 1 

E6(1)«.95E37 

IE1(U«2 
4030 NO*N-l 

DO 4175 1=1. NO 

ISW-IEK U 

60 T0J4175, 4050. 4175. 4175) ,ISW 
4050 K1-IE4(I) 

K2«IE4< I+U-l 
DO 4160 IOK1.K2 
KSW*IA5(K) 

60 T0(4160. 4075. 4100) »KSW 

4075 IF(A4(K) ) 4076 .4078 .4078 

4076 Z*-A4(K) 
60 TO 4079 

4078 Z«A4(K) 

4079 IF(A3(K)-Z)4080, 4160.4160 

4080 Z«Z-A3(K) 

IF(E6 < I )-Z) 4081. 4082 .4082 

4081 ERS*E6(I> 
60 TO 4105 

4082 ERS»Z 

60 TO 4105 
4100 ERS«E6»I) 
4105 J3*IA2(K) 

J3SW=IE1< J3) 

60 T0(4160, 4160. 4120.4135) ,J3SW 
4120 PRINT 4125 

4125 FORMAT U3H ERROR-CORE 3) 

STOP 3 
4135 IE1(J3)=2 

E6< J3 )«ERS 

IE2( J3)«I 

IF (J3-N) 4160. 5000 .4160 
4160 CONTINUE 



IE1(1)»1 
4175 CONTINUE 
LBSW-1 

DO 4340 I-l.NO 

ISW«IE1( I ) 

60 T0(4340»4120»4120.4215) ,ISW 
4215 K1«IE4<I) 

K2«IE4(I+1)-1 
DO 4325 K«K1,K2 
<SW=IA5(K) 

60 TO<4325, 4235,4253) »KSW 
4235 IF ( A3 ( K) ) 4325, 4325. 4240 
4240 UC«A3(<) 

60 TO 4265 

4253 Z«A4((C) 

4254 IF<A3<IO-Z>4325. 4325,4255 

4255 UC«A3(K>-Z 
4265 J3sIA2(K) 

J3SW* 1E1 ( J3 ) 

60 T0(4295, 4120. 4120. 4325) .J3SW 

4295 IF(E6(I»-UC)4296. 4296, 4297 
4297 E6(1)«UC 

4296 IE2(I)— J3 
IE1(I)«2 
LBSW*2 

GO TO 4340 
4325 CONTINUE 

IEim«3 
4340 CONTINUE 

IE1(N)«3 

GO TO(6000,4355),LBSW 
4355 DO 4395 I»1,N 
LSW»IE1(I ) 

60 T0(4395, 4395, 4385,4120) ,LSW 
4385 IE1(I)*4 
4395 CONTINUE 

GO TO 4030 
5000 IF (E6(N)-«9E37) 5005,9000,9000 
5005 IF(E6(N) )4120, 5010, 5010 
5010 IF(IE2(N) >4120»5014»5014 

5014 J0«N 

5015 IF(IE2(J0))5020, 5045, 5045 
5020 Z«-l. 

J1«-IE2< JO) 

I0*J0 

J0«J1 

60 TO 5060 
5045 Z«l. 

J1«IE2(J0) 
10. Jl 
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5060 K1-IE4U0) 

K2-IE4(I0*1)-1 

DO 5095 L-MU.K2 

IF (IA2<L)-J0) 5095, 5080,5095 
5080 A3(L)»A3(L)+Z»£6(N) 

J0-J1 

IF (JO-l) 5015,4000, 5015 
5095 CONTINUE 
6300 IK-IK+1 

MNA-2 
6005 01-.95E37 

Q2-.95E37 

Q3..95E37 
6010 00 6086 I-l.NO 

K1«IE4(I) 

K2«IE4(I+1>-1 

KSWl'IEKI) 
6020 DO 6085 K»K1*K2 

J«IA2(K> 

KSW2-IEK J) 

6030 60 TO (6031*6031,6034,6034) »KSW1 

6031 60 TO (6085,6085,6040,6040) ,KSW2 

6034 GC TO (6035,6035.6085,6085) »KSW2 

6035 IF(A6(K) )6085, 6085, 6037 
6037 IF(Q2-A6(IC) )6085, 6085, 6043 
6043 Q2*A6(K) 

60 TO 6085 
6040 IF(A6(K) )6060, 6070, 6070 
6060 X*-A6(K) 

IF (01 -X) 6085,6085,6062 
6062 Ql-X 

60 TO 6085 
6070 IF(A7(K> )6080, 6085, 6065 
6080 X*-A7(K) 

IF (Q3-X) 6085,6085,6082 
6082 03-X 

6085 CONTINUE 

6086 CONTINUE 

IF (01-02)6091 ,6091, 6092 

6091 IF(Q1-Q3)6093, 6093, 6095 

6092 IF(Q2-Q3)6094, 6095, 6095 

6093 Q4-Q1 

60 TO 6089 

6094 04-02 

60 TO 6089 

6095 Q4-Q3 

6089 DO 6162 I«l»NO 
X1»IE4(I) 
K2«IE4(I+1)-1 
KSW1-IEK I ) 




6090 DO 6161 K-K1»K2 
J-IA20O 
K&W2-IEK J) 

6100 60 TO (6101,6101, 6104, 6104), KSW1 

6101 60 TO (6110,6110,6103,6103) ,KSW2 

6103 A6(K)«A6(K)+Q4 
A7(K)-A7(K)+Q4 
60 TO 6110 

6104 60 TO (6106, 6106, 6110, 6110), KSH2 
6106 A6(IC)-A6(K)-Q4 

A7 ( K ) -A7 ( K ) -04 
6110 IF(A7(K) )6130, 6159, 6130 
6130 IF(A6(K) )6150, 6155, 6150 
6150 IA5<K>«1 

60 TO 6161 
6155 IA5(K)-2 

60 TO 6161 
6159 IA5(K>-3 

6161 CONTINUE 

6162 CONTINUE 

DO 6201 K«1,LL 
A90(K)«A9<K> 

IF (A6(K)) 6171*6171*6172 

6171 A100(IO-A9(IC) 
60 TO 6201 

6172 A100(K)-A9(K)-A6(K) 
6201 CONTINUE 

6230 60 TO 2000 

9000 MIK-IX 

IF( 19-4)9002,9001,9001 

9001 I9«3 

9002 PUNCH 6451,N,LL,MIX,I9 

PRINT 6450 

6450 FORMA T( 58HEND OF PROGRAM 1, LOAD PROGRAM 2, AND DATA IN PROPER ORO 

1ER) 

6451 FORMATOI5.I2) 
9008 STOP 

END 




a 



24 



C PROGRAM 2 

DIMENSION ZK50) »A100(50) »CH€CIC(50) 

DIMENSION Z3(8) »Z2(20> ,SMLC(50) »SMLT I ( 50 ) .CAPTJ ( 50 ) .CAPTI { 50 ) 
DIMENSION SMLTX<50) .XXA4(50) .XXA6(50) ,KKK(50) »ZZ2(20»50> 
DIMENSION KK<50) *MM(50) .ZZ3(8.50) .XXA1 ( 50 ) .XXA2 ( 50 ) .XXA3(50> 
DIMENSION A100A(50 ) » COSTA (50) »SMLTIA( 50) 
DIMENSION CAPTJA(50> 

DIMENSION I KB (50) ,TCB(50> ,EEB(50> »MCOUNA(50) 
READ 103,KE,KD,IR,INDIR.DT,DC 
103 FORMAT(4I5.2F10.D 

IF(KE-4> 105, 310. 310 

105 READ 106.N.LL.MIK.I9 

106 FORMATC3I5.I2) 

READ 26. <Z1(I1). 11-1.46) 
26 FORMATf2(A4,A2)/6(A4.A2)/12(A4.A2)/3(A4,A2> I 
DO 114 12*1 »LL 

114 READ 8.KX(I2).MM(I2).(ZZ3(I1.I2).I1«1,8).XXA1(I2)»XXA2(I2).XXA3<I2 
D.XXA4(I2)»XXA6<12) 
DO 118 13-1. N 
118 READ 4»KKK( 13) ,<ZZ2< 11,13) ,11 = 1.20) 

8 FORMAT<2I5.7A4,A2,2(F5.0»F10.0) .F10.0) 

4 FORMAT(5X.I5.10< A4,A2) ) 
KSW2=1 

KCOUNT*0 
KSW1 S KE 

READ 5.IK.TC.EE.B 

5 FORMA T( I4.3E12.6) 
K0«0 

Jl-42 
T2«EE 
JCOUNT=0 
T3 = EE 
ARG1-0.0 
TC2=TC 
TC3=TC 
NOPGE-1 
JHEAD-1 
146 NCOUNT«0 
NHEAD*1 
Nl>42 

9 FORMAT(8E10.4) 

READ 9»(A100(I1)»I1«1.LL) 

READ 9»(SMLC(I1).I1»1.LL) 

READ 9.CSMLTI (ID »U*1.LL) 

READ 9,<CAPTJ(ID ,I1*1,LL) 

READ 9,<CAPTI( ID ,I1»1.LL) 

READ 9 , ( SMLTX ( II) » I 1«1 »LL ) 
154 MCOUNT*0 

DO 204 ILL*1»LL 
158 IF(MCOUNT) 184, 159, 184 
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159 PUNCH 160.NOPGE 

160 F0RMAT(1H1,45X,26HA C T I V I T Y LIS T/1HI ,23X,37X,4HPAGE, 16 

1 ) 

NOPGE=NOPGE+l 
IF ( NHEAD ) 163. 178, 163 
163 NHEAD=0 

PUNCH 165.(Z1(I1),I1=5.16),(Z1(I1),I1*1,4) 
165 FORMAT ( 13H0 DIVISION - .6 ( A4 , A2 ) , 5X , 2 ( A4 , A2 ) ) 

PUNCH 167, (ZD ID ,11 = 17,40) 
167 FORMA T( 18H PROJECT TITLE - ,9( A4, A2 ) /1HI ,23X , 3( A4, A2 ) ) 

PUNCH 169, Zl (41 ) ,Z1 (42 ) 
169 FORMA T ( 14H0 TIME UNIT - ,A4,A2) 

PUNCH 171,(21(11) ,11=43, 46), IK 
171 FORMAT ( 14H COST UNIT - » 2 ( A4 , A2 ) . 46X/ 1H I , 37X , 8HSCHEDULE, 12X, 1 6 ) 

PUNCH 173»TC 
173 FORMAT ( /1HI »23X,14X,11HDIRECT COST.F15.D 

PUNCH 175,LL,EE 

175 FORMA T( 19H ACTIVITY COUNT - , I 5 , 48X/1HI , 23X , 14X, 8HDURATI ON ,F 18 . 1 ) 
PUNCH 177, N 

177 FORMAT ( 19H EVENT COUNT - ,15/////) 

178 PUNCH 179 

179 FORMATf 12H0PREC. SUCC. ,47X, 13HDIRECT EAR/1HI , 23X , 5HL I EST ,9X , 6HL 
1ATEST.15X. 5HFLOAT ) 

PUNCH 182 

182 FORMA T( 12H EVENT EVENT ,7X , 1 1HDESCR I PT ION , 15X , 8HDURAT ION , 6X , 1 3HC0ST 
1 START /1HI ,23X,48H- FINISH START - FINISH TOTAL FREE IND 
2EP.//J 

184 IF(NCOUNT-Nl) 188, 185, 185 

185 NCOUNT»0 
Nl = 55 

GO TO 189 

188 NCOUNT-NCOUNT+l 

189 K«KK( ILL) 
M=MM( ILL ) 

DO 36 I 1-1,8 
36 Z3(I1 )=ZZ3(I1,ILL) 
XA1=XXA1( ILL) 
XA2=XXA2( ILL) 
XA3»XXA3( ILL) 
XA4*XXA4( ILL > 
XA6=XXA6( ILL) 
COST»XA6-SMLC(ILL) 
EF=SMLTI( ILL)*A100(ILL) 
SL*CAPTJ< ILL)-A100( ILL) 
TF^CAPTJI ILD-SMLTI ( ILL ) -Al 00 (ILL) 
FF«SMLTX( ILD-SMLTI ( I LL ) -A 1 00 ( I LL ) 
ARG2= SMLTX < ILL) -C APT I ( I LL ) -A100 (ILL) 
IF ( ARG1-ARG2 ) 092, 093, 093 
092 F I = ARG2 

GO TO 094 
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093 FI-ARG1 

094 X-TF 
EF.EF/10. 
SL-SL/10. 
TF-TF/10. 
FF-FF/10. 

SMLTX(ILL)*SMLTX( ILL)/ 10. 
CAPTI (ILL) -CAPTI (ILD/10. 
CAPTJ(ILD«CAPTJ( ILD/10* 
A100( ILL )-A100( ILD/10. 
SMLTI ULD-SMLTI ( ILD/10* 
FI-F1/10. 

PUNCH 199,K*M*(Z3(I1) • 1 1*1*8 ) »A100( ILL) .COST. SMLTI ( ILL ) *EF»SL»CAP 
1TJ(ILL).TF,FF,FI 

199 FORNAT(1X,I5»I6»1X,7A4,A2,F10.1»F11.1,F8.1/1HI ,23X,6F8.1) 

200 IF(X) 201* 201* 204 

201 MC©UNT*MCOUNT+l 
CH€CK (MCOUNT) -ILL 

A 100 A (MCOUNT ) *A 100 (ILL) 
COSTA (MCOUNT ) -COST 
SMLTIA (MCOUNT) -SMLTIt ILL) 
CAPTJA(MCOUNT)«CAPTJ< ILL) 
204 CONTINUE 
Nl*42 
MCOUNT »0 
NHCAO-1 

READ 9»(A100(I1)»I1*1*N) 
READ 9*(SMLC(I1)*I1*1*N) 
DO 233 INN*1*N 
IF(NCOUNT) 227, 210. 227 

210 PUNCH 211.NOPGE 

211 FORMAT(1H1*49X»20HE VENT LIS T .2X/1HI * 23X , 37X ,4HPAGE, 16 ) 
N0P6E-N0P6E+1 

IF(NHEAD) 213* 222* 213 
213 NHfAO-0 

PUNCH 165* (Zl( ID » 1 1*5 .16 ) • ( Zl ( 1 1 ) » 1 1 = 1 ,4 ) 

PUNCH 167*(Z1(ID .11*17*40) 

PUNCH 169.Z1C41) ,Z1(42) 

PUNCH 171,121(11) .11*43.46), IK 

PUNCH 173*TC 

PUNCH 175.LL.EE 

PUNCH 177.N 

222 PUNCH 223 

223 FORMAT(1HO*71X/1HI*23X.5X8HEARLIEST»9X*6HLATEST) 
PUNCH 225 

225 FORMAT(7H EVENT, 27X.11HDESCRIPTION.27X/1HI ,23X*4X10HOCCURRENCE,6X 
D10HOCCURRENCE//) 

227 rF(NCOUNT-Nl) 231, 228, 228 

228 NCOUNT-0 
Nl-55 
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60 TO 232 

231 NCOUNT*NCOUNT+l 

232 K*KKK ( INN ) 

DO 46 11*1,20 
46 Z2(I1)*ZZ2(I1,INN) 

233 PUNCH 234*K*{22(ID«I1*1,20)»A100(INN),SMLC(INN> 

234 FORMAT(1X.I6»2X»10(A4.A2)*3X/1HI ,23X,F13. 1 ,F16. 1 ) 
240 NCOUNT-0 

Nl-42 
NHEAD-1 

IF (MCOUNT) 273* 273* 243 
243 DO 272 I M*l. MCOUNT 

IF(NCOUNT) 265* 245* 265 

245 PUNCH 246.NOPGE 

246 FORMAT <1H1.40X.31HC RITICAL ACTIVI /1HI.23X.7HT I E 
1S.30X.4HP AGE, 16) 

NOPGE-NOPGE+1 
IF(NHEAD) 250, 258, 250 
250 NHEAD-0 

PUNCH 165* (Zl( ID ,11*5*16) *(Z1( II). 1 1*1*4) 

PUNCH 167. (Zl(Il) .11*17.40) 

PUNCH 169.ZK4D.ZK42) 

PUNCH 171. (ZKID, 11*43, 46), IK 

PUNCH 173»TC 

PUNCH 175,LL,EE 

PUNCH 177.N 

258 PUNCH 259 

259 FORMAT(70X,2HEA/1HI ,23X»23HRL* START LAT. FINISH) 
PUNCH 261 

261 FORMAT ( 12H PREC. SUCC* ,50X,10HDIRECT /1HI , 23X.21HT IME FOR T 
1IME FOR) 
PUNCH 263 

263 FORMA T < 1 2H EVENT EVENT.9X.11HDESCRIPTI0N.16X.8HDURATI0N.7X.4HC0ST. 
13X/1HI,23X,21HACTIVITY ACTIVITY//) 

265 IF(NC0UNT-N1 ) 269. 266, 266 

266 NCOUNT*0 
Nl*55 

GO TO 270 

269 NCOUNT-NC0UNT+1 

270 J2-CHECKUM) 
K«KK( J2) 
M*MM( J2) 

DO 56 11-1,8 
56 Z3(ri)-ZZ3(Il,J2) 

XYZ«A100A(IM) 

COST-COSTA ( I M) 

YZX«SMCTIA(IM) 

ZXY*CAPTJA( IM) 
272 PUNCH 303»K.M.(23( ID ,11-1,8) *XYZ, COST, YZX.ZXY 
303 F0RMAT(1X,I5,I6,3X.7A4,A2,2F12.1,F11,1/1HI,23X,8X,F14.1) 



60 TO 999 
316 READ 5.IK.TCEE.B 
32* IF(MIK-IK) 325, 325, 333 
325 KSW2-2 

60 TO 146 

333 60 T0< 334, 354, 362>»KSW1 

334 Kl-KO+KD 

IF(IK-ICl) 338, 336, 338 

336 KO-IK 

60 TO 146 

338 READ 9. < A100 < 1 1 > , 1 1«1 , LU 
READ 9,<SMLC(I1)»I1»1»LL) 
READ 9»<SMLTI(I1),I1«1,LU 
READ 9,CCAPTJ{I1),I1-1,LL) 
READ 9,<CAPTI(I1) ,11-1, LU 
READ 9»<SMLTXU1),I1-1,LL) 
READ 9»<SMLTXU1) ,11-1, N) 
READ 9»(SMLTX( I1),I1-1«N) 
MCOUNT-0 
DO 351 I2-1»LL 

TF«CAPTJ( I2)-SMLTI (I2J-A100U2) 
IF«TF) 351, 350, 351 

350 MCOUNT-MCOUNT+1 

351 CONTINUE 
60 TO 273 

354 T21-T2-DT 

IF(EE-T21) 356, 356, 358 

356 T2»EE 
TC21-TC2+OC 

IF(TC-TC21> 146, 357, 357 

357 TC2-TC 

60 TO 146 

358 TC21-TC2+0C 
IF(TC-TC21) 338, 360, 360 

360 TC2-TC 

60 TO 146 
362 T31-T3-DT 

TC31-TC3+DC 

IF{EE-T31) 365, 365, 338 

365 IF(TC-TC31) 338, 366, 366 

366 T3-EE 
TC3-TC 

60 TO 146 
999 STOP 
END 
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GO T0( 273, 310, 271), 19 
271 19-2 

READ 5,IK,TC,EE,B 
GO TO 146 

273 KCOUNT-KCOUNT+1 
IKB(ICCOUNT)-IK 
TCB(ICCOUNT)=TC 
EEBtKCOUNT ) "EE 
MCOUNA(KCOUNT)-MC0UNT 

274 IF(KSW2-1) 276, 316, 276 
276 DO 308 I2-1.KC0UNT 

IF(JCOUNT) 369, 278, 369 

278 PUNCH 279.NOP6E 

279 F0RMAT(1H1,41X,30HT IME — COST FUNC /1HI.23X.7HT I N 
1,30X,4HPAGE,I6> 

NOPGE-NOPGE+1 

IF(JHCAD) 283, 293, 283 
283 JHEAD-O 

PUNCH 165,(Z1CI1» .11*5,16) ,(Z1( II) ,11-1,4) 

PUNCH 167, (Zl( ID ,11-17,40) 

PUNCH 169,21(41 > ,Z1 (42) 

PUNCH 288, (Zl( II) ,11-43,46) 
288 F0RMATU4H COST UNIT - ,2(A4.A2>) 

PUNCH 290, LL 
290 FORMAT! 1H0.18H ACTIVITY COUNT - ,16) 

PUNCH 292, N 

292 FORMAT ( 19H EVENT COUNT - ,16/////) 

293 PUNCH 294 

294 FORMAT ( 15X ,7H0PT I MAL ) 
PUNCH 296 

296 FORMA T(72H SCHEDULE DIRECT PROJECT CRITICAL IN 

1DIRECT T/1HI ,23X,4H0TAL) 

PUNCH 299 

299 FORMAT ( 76H NUMBER COST DURATION ACTIVITIES 

1C0ST COST//) 

369 IF( JC0UNT-J1 ) 373, 370, 370 

370 JCOUNT-0 
Jl-55 

GO TO 301 
373 JC0UNT=JC0UNT+1 
301 IK-IKB(I2> 

TC«TCB(I2) 

EE-EEB (12) 

MC0UNT»MC0UNA(I2) 

306 COSTIN-0.0 

307 TOTCOS-TC+COSTIN 

308 PUNCH 309,IK,TC,EE,MCOUNT,COSTIN,T0TC0S 

309 FORMAT (IX, I7.2F14.1, I9,4X,2F14.1 ) 

310 PUNCH 66 

66 FORMA T( 1H0,10HEND OF JOB) 
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Appendix C 

The following is a sample problem and its results. 
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Input for program I 

♦ 1 

17 JULY 63 
COURSE CE 453 

CONSTRUCTION PROJECT NETWORK 
DAYS DOLLARS 

1 2 LEAD TIME 

1 5 G 

2 3 A 
2*8 

3 * C 

3 5 DUMMY 

4 6 E 
3 6 D 
6 7 F 

-100 

1 START 

2 

3 

4 

5 

6 

7 FINISH 
-100 



00 


00 


00 


00 


40 


00 


10 


500 


80 


24000 


20 


60000 


80 


40000 


40 


720O0 


60 


17000 


30 


29000 


00 


00 


00 


00 


50 


15000 


10 


51000 


90 


27000 


70 


3300© 


140 


28000 


140 


28000 



37 
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SAMPLE PROJECT 
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Input for program II in its proper order. 



1 1 

7 9 * 1 
17 JULY 63 
COURSE CE 453 

CONSTRUCTION PROJECT NETWORK 
DAYS DOLLARS 



1 


2 


LEAD TIME 


0. 


0. 


0. 


0. 


0. 


1 


5 


G 


40. 


0. 


10. 


500. 


66. 


2 


3 


A 


80* 


24000. 


20. 


60000. 


7200. 


2 


4 


B 


80* 


40000. 


40. 


72000. 


10400. 


3 


4 


C 


60. 


17000. 


30. 


29000. 


4100. 


3 


5 


DUMMY 


0* 


0. 


0. 


0. 


o. 


4 


6 


E 


50. 


15000. 


10. 


51000. 


6000. 


5 


6 


D 


90. 


27000. 


70. 


33000. 


5400. 


6 


7 
1 


F 

START 


140. 


28000. 


140. 


28000. 


2800. 



2 
3 
4 
5 
6 

7 FINISH 

.15100QE+05 .330000E+02 .359666E+08 
.0000E-99 .4000E+02 .8000E+02 .8000E+O2 
•1400E+03 

•OOOOE-99 .6666E+02 .4800E+04 .6400E+04 
•OOOOE-99 

•OO00E-99 .0000E-99 .0000E-99 .0000E-99 
•19O0E+03 

•0000E-99 .1000E+03 .8000E+02 .1400E+03 
•3300E+03 

.0000E-99 .0000E-99 .0000E-99 .0000E-99 
•1900E+03 

•0OO0E-99 .8OOOE+02 .8000E+02 .1400E+03 
•3300E+03 

•0000E-99 .0O00E-99 .8000E+01 .1400E+02 

•0000E-99 .0000E-99 .8OOOE+01 .1400E+02 

1 .159000E+05 .310000E+02 .359666E+08 
•00O0E-99 .4000E+02 .8000E+02 .8000E+02 
.1400E+03 

•0000E-99 .6666E+02 .4800E+04 .6400E+04 
•0000E-99 

•0000E-99 .00O0E-99 .0000E-99 .0000E-99 
.1700E+03 

.0000E-99 .800OE+02 .8000E+02 .1200E+03 
.310OE+03 

•0O00E-99 .0000E-99 .000OE-99 .0OO0E-99 
•1700E+03 

•0O0OE-99 .8000E+02 .800OE+02 .1200E+03 
.3100E+03 



.60O0E+O2 


.0000E-99 


.5000E+02 


•90OOE+02 


.2400E+04 


•0000E-99 


.4500E+04 


.2700E+04 


.8000E+02 


.8000E+02 


.1400E+03 


.8000E+02 


.1400E+03 


.10O0E+03 


.1900E+03 


.1900E+03 


.8000E+02 


.8000E+02 


.1400E+03 


.1000E+03 


•1400E+03 


.8000E+02 


.1900E+03 


. 1900E+03 


.8000E+01 
.1000E+02 


.1900E+02 
.1900E+02 


.3300E+02 
.3300E+C2 




.4000E+02 


.0OO0E-99 


.5000E+C2 


.9000E+C2 


.1600E+04 


.0O00E-99 


.4500E+04 


.2700E+04 


•8000E+02 


•8000E+02 


.1200E+03 


•8000E+02 


•1200E+03 


.8000E+02 


.1700E+03 


.1700E+03 


.8000E+02 


.8000E+02 


.1200E+03 


.8000E+02 


.1200E+03 


.8000E+02 


.1700E+03 


.1700E+03 



.0O0OE-99 .OOOOE-99 .80O0E+O1 .1200E+02 

, 0000E-99 .0000E-99 .800OE+01 .1200E+02 

2 .183000E+05 .270000E+02 .359666E+08 
.0O00E-99 .4000E+02 .4000E+02 .8000E+02 
.1400E+03 

.0000E-99 .6646E+02 .2400E+04 .6400E+04 
.0000E-99 

.0O0OE-99 .OOOOE-99 .0OO0E-99 .0000E-99 
.1300E+03 

.OOOOE-99 .4000E+02 .40O0E+02 .8000E+02 
.2700E+03 

.0O00E-99 .OOOOE-99 .OOOOE-99 .OOOOE-99 

•1300E+03 

.0000E-99 .4000E+02 .4000E+02 .8000E+02 
.2700E+03 

.OOOOE-99 .0000E-99 .4000E+01 .8000E+01 

.0OOOE-99 .0O00E-99 .4000E+01 .8000E+01 

3 .2O55O0E+05 .250000E+02 .359666E+08 
.OOOOE-99 .1000E+02 .2000E+02 .8000E+02 
.1400E+03 

.OOOOE-99 .1666E+02 .1200E+04 .6400E+04 
.0000E-99 

. OOOOE-99 .0000E-99 .OOOOE-99 .0000E-99 
.1100E+03 

.OOOOE-99 .2000E+02 .2000E+02 .8000E+02 
.2500E+03 

.0000E-99 .0000E-99 .0000E-99 .OOOOE-99 
. 11OOE+03 

.0O00E-99 .2000E+02 .2000E+02 .8000E+02 
.2500E+03 

, 0000E-99 .OOOOE-99 .20O0E+01 .8000E+01 

.OOOOE-99 .OOOOE-99 .2000E+01 .8000E+01 

4 .229500E+05 .230000E+02 .359666E+08 
.0000E-99 .1000E+02 .2000E+02 .8000E+02 
.140OE+03 

.OOOOE-99 .1666E+02 .1200E+04 .6400E+04 
.OOOOE-99 

.OOOOE-99 .OOOOE-99 .OOOOE-99 .OOOOE-99 
.9000E+02 

. OOOOE-99 .2000E+02 .2000E+02 .8000E+02 
.2300E+03 

.0000E-99 .OOOOE-99 .OOOOE-99 .0000E-99 
.9000E+02 

.OOOOE-99 .2000E+02 .2000E+02 .8000E+02 
.2300E+03 

.OOOOE-99 .OOOOE-99 .2000E+01 .8000E+01 

.OOOOE-99 .0000E-99 .2000E+01 .8000E+01 



.80OOE+01 
.8OOOE+01 


•17OOE+02 
.170OE+02 


.3100E+02 
.3100E+02 




.4000E+02 


•0000E-99 


.5000E+02 


.9000E+02 


.1600E+04 


.OOOOE-99 


.4500E+04 


.2700E+04 


.4000E+02 


•4000E+02 


.8000E+02 


.4000E+02 


.8000E+02 


.4OO0E+02 


.1300E+03 


.1300E+03 


•4000E+02 


.4000E+02 


.8000E+02 


•4000E+02 


•8OO0E+02 


.4000E+02 


.1300E+03 


.1300E+03 


.4000E+01 
.4000E+01 


.1300E+02 
.1300E+02 


.2700E+02 
.2700E+02 




.6000E+02 


.0000E-99 


.3000E+02 


.9000E+02 


.2400E+04 


.0000E-99 


.2700E+04 


.2700E+04 


.2000E+02 


.20OOE+02 


.8000E+02 


.2000E+02 


.8000E+02 


.2000E+02 


.1100E+03 


.1100E+03 


. £UUUt T Ut 




•OUUUt T Ut 




.8000E+02 


.20O0E+02 


.1100E+03 


.1100E+03 


•2000E+01 
.2000E+01 


.1100E+02 
.1100E+02 


.250OE+02 
.2500E+02 




.6000E+02 


.OOOOE-99 


.1000E+02 


•7000E+02 


.2400E+04 


.OOOOE-99 


.9000E+03 


.2100E+04 


.2000E+02 


.2OO0E+02 


.8000E+02 


.2000E+02 


•8000E+02 


.2000E+02 


•9000E+02 


•9000E+02 


•2000E+02 


.2OO0E+02 


.8000E+02 


.2000E+02 


.80O0E+02 


.2000E+02 


.9000E+02 


.9000E+02 


.2000E+01 
.2000E+01 


.9000E+01 
.9000E+01 


.2300E+02 
.2300E+02 





ACT'IVITY LIST 



PACE 1 



DIVISION - COURSE CE 453 

PROJECT TITLE - CONSTRUCTION PROJECT NETWORK 



17 JULY 63 



TIME UNIT - DAYS 
COST UNIT - DOLLARS 



ACTIVITY COUNT 
EVENT COUNT - 



SCHEDULE 
DIRECT COST 
DURATION 



15100.0 
33.0 



PR EC. 


SUCC. 






DIRECT 


EARLIEST 


LATEST 




FLOAT 




EVENT 


EVENT 


DESCRIPTION 


DURATION 


COST 


START - 


FINISH 


START - 


FINISH 


TOTAL 


FREE 


INDEP. 


1 


2 


LEAD TIME 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


1 


5 


G 


4.0 


-.6 


0.0 


4.0 


6.0 


10.0 


6.0 


4.0 


4.0 


2 


3 


A 


8.0 


2400.0 


0.0 


8.0 


0.0 


8.0 


0.0 


0.0 


0.0 


2 


4 


B 


8.0 


4000.0 


0.0 


8.0 


6.0 


14.0 


6.0 


6.0 


6.0 


3 


4 


C 


6.0 


1700.0 


8.0 


14.0 


8.0 


14.0 


0.0 


0.0 


0.0 


3 


5 


DUMMY 


0.0 


0.0 


8.0 


8.0 


10.0 


10.0 


2.0 


0.0 


0.0 


4 


6 


E 


S.O 


1500.0 


14.0 


19.0 


14.0 


19.0 


0.0 


0.0 


0.0 


5 


6 


D 


9.0 


2700.0 


8.0 


17.0 


10.0 


19.0 


2.0 


2.0 


0.0 


6 


7 


F 


14.0 


2*00.0 


19.0 


33.0 


19.0 


33.0 


0.0 


0.0 


0.0 



+1 



DIVISION - COURSE CE 453 

PROJECT TITLE - CONSTRUCTION PROJECT NETWORK 



17 JULY 63 



TIME UNIT - DAYS 
COST UNIT - DOLLARS 



ACTIVITY COUNT 
EVENT COUNT - 



SCHEDULE 
DIRECT COST 
DURATION 



15100.0 
33.0 



DESCRIPTION 



EARLIEST 
OCCURRENCE 



LATEST 
OCCURRENCE 



19.0 
33.0 



0.0 
0.0 
8.0 
14.0 
10.0 
19.0 
33.0 



C R I T I C A L ACTIVITIES 



PACE 3 



DIVISION - COURSE CE MS 

PROJECT TITLE - CONSTRUCTION PROJECT NETWORK 



TINE UNIT - DAYS 
COST UNIT - DOLLARS 



ACTIVITY COUNT - 
EVENT COUNT - 



SCHEDULE 
DIRECT COST 
DURATION 



1S1O0. 
33. 



PREC. SUCC. 
EVENT EVENT 



DESCRIPTION 



DIRECT 
COST 



EARL. START 
TIME FOR 
ACTIVITY 



LAT. FINISH 
TIME FOR 
ACTIVITY 



LEAD TIME 
A 

C 
E 



0.0 
8.0 
6.0 
5.0 
14.0 



0.0 
2*00.0 
1700.0 
1500.0 
2800.0 



0.0 
0.0 
8.0 



4# 



DIVISION - COURSE CE 453 

PROJECT TITLE - CONSTRUCTION PROJECT NETWORK 



ACTIVITY LIST 
17 JULY 63 



TIME UNIT - DAYS 
COST UNIT - DOLLARS 



ACTIVITY COUNT - 
EVENT COUNT - 



SCHEDULE 
DIRECT COST 
DURATION 



15900.0 
31.0 





SUCC. 






DIRECT 


EARLIEST 


LATEST 




FLOAT 




*T 


EVENT 


DESCRIPTION 


DURATION 


COST 


START - 


FINISH 


START - 


FINISH 


TOTAL 


FREE 


INDEP. 


1 


2 


LEAD TIME 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


1 


5 


G 


4.0 


-.6 


0.0 


4.0 


4.0 


8.0 


4.0 


4.0 


4.0 


2 


3 


A 


8.0 


2400.0 


0.0 


8.0 


0.0 


8.0 


0.0 


0.0 


0.0 


2 


4 


B 


8.0 


4000.0 


0.0 


8.0 


4.0 


12.0 


4.0 


4.0 


4.0 


3 


4 


C 


4.0 


2500.0 


8.0 


12.0 


8.0 


12.0 


0.0 


0.0 


0.0 


3 


5 


DUMMY 


0.0 


0.0 


8.0 


8.0 


e.o 


8.0 


0.0 


0.0 


0.0 


4 


6 


E 


5.0 


1500.0 


12.0 


17.0 


12.0 


17.0 


0.0 


0.0 


0.0 


5 


6 


D 


9.0 


2700.0 


8.0 


17.0 


8.0 


17.0 


0.0 


0.0 


0.0 


6 


7 


F 


14.0 


2800.0 


17.0 


31.0 


17.0 


31.0 


0.0 


0.0 


0.0 



EVENT LIST 



PAGE 5 



DIVISION - COURSE CE 499 

MOJECT TITLE - CONSTRUCTION PROJECT NETWORK 



TIME UNIT - DAYS 
COST UNIT - DOLLARS 



17 JULY 63 



ACTIVITY COUNT 
EVENT COUNT - 



SCHEDULE 
DIRECT COST 
DURATION 



15900.0 
31.0 



DESCRIPTION 



EARLIEST 
OCCURRENCE 



LATEST 
OCCURRENCE 



0*0 
0.0 
8.0 

12.0 
8.0 
17.0 
31.0 



0.0 
0.0 

e.o 

12.0 

s.o 

17.0 
31.0 



4i> 



DIVISION - COURSE CE 453 
PROJECT TITLE - CONSTRUCTION PROJECT NETWORK 



TIME UNIT - DAYS 
COST UNIT - DOLLARS 



CRITICAL ACTIVITIES 
17 JULY 63 



ACTIVITY COUNT 
EVENT COUNT - 



SCHEDULE 
DIRECT COST 
DURATION 



15900.0 
31.0 



PR EC. SUCC. 
EVENT EVENT 



DESCRIPTION 



DIRECT 
COST 



EARL. START 
TIME FOR 
ACTIVITY 



LAT. FINISH 
TIME FOR 
ACTIVITY 



DUMMY 

E 
D 
F 



0.0 
8.0- 
4.0 
0.0 
5.0 
9.0 
14.0 



0.0 
2400.0 
2500.0 

0.0 
1500.0 
2700.0 
2800.0 



0.0 
0.0 
8.0 
8.0 


8.0 
17.0 



12 



0.0 
8.0 
12.0 
8.0 
17.0 
17.0 
31.0 



DIVISION - CQUftSE CE 413 

MOJECT TITLE - CONSTRUCT! ON MTOJECT WTMK 

TIME UNIT - DAYS 
COST UNIT - DOLLARS 

ACTIVITY COUNT - 9 
EVENT COUNT - 7 



ACTIVITY 

17 JULY 43 



SCHEDULE 
DIRECT COST 
DURATION 



18300.0 
27.6 



PR EC. SUCC. 
EVENT EVENT 



DESCRIPTION 



1 


2 


LEAD 


1 


5 


G 


2 


3 


A 


2 


4 


B 


3 


4 


C 


3 


5 


DUMMY 


4 


6 


E 


5 


6 


D 


6 


7 


F 



ATTON 


DIRECT 


EARLIEST 


LATEST 




FLOAT 




COST 


START - 


FINISH 


START - 


FINISH 


TOTAL 


FREE 


INOEP. 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


4.0 


-.6 


0.0 


4.0 


0.0 


4.0 


0.0 


0.0 


0.0 


4.0 


4800.0 


0.0 


4.0 


0.0 


4.0 


0.0 


0.0 


0.0 


8.0 


40OO.0 


0.0 


8.0 


0.0 


8.0 


0.0 


0.0 


0.0 


4.0 


2500.0 


4.0 


8.0 


4.0 


8.0 


0.0 


0.0 


0.0 


0.0 


0.0 


4.0 


4.0 


4.0 


4.0 


0.0 


0.0 


0.0 


5.0 


1500.0 


8.0 


13.0 


8.0 


13.0 


0.0 


0.0 


0.0 


9.0 


27O0.0 


4.0 


13.0 


4.0 


13.0 


0.0 


0.0 


0.0 


14.0 


2800.0 


13.0 


27.0 


13.0 


27.0 


0.0 


0.0 


0.0 



DIVISION - COURSE CE 453 

PROJECT TITLE - CONSTRUCTION PROJECT NETWORK 

TIME UNIT - DAYS 
COST UNIT - DOLLARS 

ACTIVITY COUNT - 9 
EVENT COUNT - 7 



17 JULY 63 



SCHEDULE 
DIRECT COST 
DURATION 



18300.0 
27.0 



DESCRIPTION 



EARLIEST 
OCCURRENCE 



LATEST 
OCCURRENCE 



0.0 
0.0 
4.0 
8.0 
4.0 
13.0 
27.0 



0.0 
0.0 



tit 



CRITICAL ACTIVITIES 
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DIVISION - COURSE CE 453 

PROJECT TITLE - CONSTRUCTION PROJECT NETWORK 



TINE UNIT - DAYS 
COST UNIT - DOLLARS 



17 JULY 63 



ACTIVITY COUNT - 
EVENT COUNT - 



SCHEDULE 
DIRECT COST 
DURATION 



1B300.0 
27.0 



PREC. SUCC. 
EVENT EVENT 



DESCRIPTION 



DURATION 



DIRECT 
COST 



EARL. START 
TIME FOR 
ACTIVITY 



LAT. FINISH 
TIME FOR 
ACTIVITY 



LEA© TIME 
G 
A 

a 

c 

DUMMY 

E 
D 
F 



0.0 
4.0 
4.0 
8.0 
4.0 
0.0 
5.0 
9.0 
14.0 



0.0 
-.6 
4800.0 
4U00.0 
2500.0 
0.0 
1500.0 
2700.0 
2800.0 



0.0 
0.0 



4.0 
8.0 



0.0 
4.0 
4.0 
8.0 
8.0 
4.0 
13.0 
13.0 
27.0 



DIVISION - COURSE CE 453 

PROJECT TITLE - CONSTRUCTION PROJECT NETWORK 



ACTIVITY LIST 
17 JULY 63 



TIME UNIT - DAYS 
COST UNIT - DOLLARS 



ACTIVITY COUNT - 
EVENT COUNT - 



SCHEDULE 
DIRECT COST 
DURATION 



20550.0 
25.0 



PREC. SUCC. 



NT 


event 


DESCRIPTION 


DURATION 


COST 


START - 


FINISH 


START - 


FINISH 


TOTAL 


FREE 


INDEP. 


1 


2 


LEAD TIME 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


1 


5 


G 


1.0 


49.3 


0.0 


1.0 


1.0 


2.0 


1.0 


1.0 


1.0 


2 


3 


A 


2.0 


6000.0 


0.0 


2.0 


0.0 


2.0 


0.0 


0.0 


0.0 


2 


4 


B 


8.0 


4000.0 


0.0 


8.0 


0.0 


8.0 


0.0 


0.0 


0.0 


3 


4 


C 


6.0 


1700.0 


2.0 


8.0 


2.0 


8.0 


0.0 


0.0 


0.0 


3 


5 


DUMMY 


0.0 


0.0 


2.0 


2.0 


2.0 


2.0 


0.0 


0.0 


0.0 


4 


6 


E 


3.0 


3300.0 


8.0 


11.0 


8.0 


11.0 


0.0 


0.0 


0.0 


5 


6 


D 


9.0 


2700.0 


2.0 


11.0 


2.0 


11.0 


0.0 


0.0 


0.0 


6 


7 


F 


14.0 


2800.0 


11.0 


25.0 


11.0 


25.0 


0.0 


0.0 


0.0 



£0 



event list 
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DIVISION - COURSE CE 433 

PROJECT TITLE - CONSTRUCTION PROJECT NETWORK 

TIME UNIT - DAYS 
COST UNIT - DOLLARS 

ACTIVITY COUNT - 9 
EVENT COUNT - 7 



17 JULY 63 



SCHEDULE 
DIRECT COST 
DURATION 



20550.0 
25.0 



DESCRIPTION 



EARLIEST 
OCCURRENCE 



LATEST 
OCCURRENCE 



0.0 
0.0 
2.0 



0.0 
0.0 
2.0 
8.0 
2.0 
L1.0 
25.0 



DIVISION - COURSE CE 453 

PROJECT TITLE - CONSTRUCTION PROJECT NETWORK 

TIME UNIT - DAYS 
COST UNIT - DOLLARS 



CRITICAL ACTIVITIES 
17 JULY 63 



ACTIVITY COUNT - 
EVENT COUNT - 



SCHEDULE 
DIRECT COST 
DURATION 



PREC. SUCC. 
EVENT EVENT 



DESCRIPTION 



EARL. START 
DIRECT TIME FOR 
COST ACTIVITY 



LAT. FINISH 
TIME FOR 
ACTIVITY 



B 

C 

DUMMY 



0.0 
2.0 
8.0 
6.0 
0.0 
3.0 
9.0 
14.0 



0.0 
6000.0 
4000.0 
1700.0 

0.0 
3300.0 
2700.0 
2800.0 



0.0 
0.0 



2.0 
11.0 



0.0 
2.0 
8.0 
8.0 
2.0 
11.0 
11.0 
25.0 



5l 



ACTIVITY LIST 
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DIVISION - COURSE CE 453 

PROJECT TITLE - CONSTRUCT I ON PROJECT NETWORK 



17 JULY 63 



TIME UNIT 
COST UNIT 















DIRECT COST 




22990.0 




ACTIVITY COUNT - 9 










DURATION 




23.0 




EVENT COUNT 


7 


















PR EC. SUCC. 






DIRECT 


EARLIEST 


LATEST 




FLOAT 




event event 


DESCRIPTION 


DURATION 


COST 


START - 


FINISH 


START - FINISH 


TOTAL 


FREE 


INDEP . 


1 2 


LEAD TIME 


0.0 


0.0 


0.0 


0.0 


0.0 0.0 


0.0 


0.0 


0.0 


1 5 


G 


1.0 


49.3 


0.0 


1.0 


1.0 2.0 


1.0 


1.0 


1.0 


2 3 


A 


2.0 


6000.0 


0.0 


2.0 


0.0 2.0 


0.0 


0.0 


0.0 


2 4 


B 


8.0 


4000.0 


0*0 


8.0 


0.0 8.0 


0.0 


0.0 


0.0 


3 4 


C 


6.0 


1700.0 


2.0 


8.0 


2.0 8.0 


0.0 


0.0 


0.0 


3 5 


DUMMY 


0.0 


0.0 


2.0 


2.0 


2.0 2.0 


0.0 


0.0 


0.0 


4 6 


E 


1.0 


S100.0 


8.0 


9.0 


8.0 9.0 


0.0 


0.0 


0.0 


5 6 


D 


7.0 


3300.0 


2.0 


9.0 


2.0 9.0 


0.0 


0.0 


0.0 


6 7 


F 


14.0 


2800.0 


9.0 


23.0 


9.0 23.0 


0.0 


0.0 


0.0 



DIVISION - COURSE CE 453 

PROJECT TITLE - CONSTRUCTION PROJECT NETWORK 



17 JULY 63 



TIME UNIT - DAYS 
COST UNIT - DOLLARS 



ACTIVITY COUNT 
EVENT COUNT - 



SCHEOULE 
DIRECT COST 
DURATION 



22950.0 
23.0 



DESCRIPTION 



EARLIEST 
OCCURRENCE 



LATEST 
OCCURRENCE 



0.0 
0.0 



2.0 
8.0 
2.0 



DIVISION - COURSE CE 433 

PROJECT TITLE - CONSTRUCT I OH PROJECT NETWORK 



CRITICAL ACTIVITIES 
17 JULY 63 



TIME UNIT 
COST UNIT 



DAYS 
DOLLARS 



ACTIVITY COUNT - 
EVENT COUNT - 



SCHEDULE 
DIRECT COST 
DURATION 



22990. 
23. 



PREC. SUCC. 
EVENT EVENT 



DESCRIPTION 



DIRECT 
COST 



EARL. START 
TIME FOR 
ACTIVITY 



LAT. FINISH 
TIME FOR 
ACTIVITY 



LEAD TIME 
A 

B 

C 

DUMMY 
E 
D 



0.0 
2.0 
B.O 
6.0 
0.0 
1.0 
7.0 



0.0 
6000.0 
4000.0 
1700.0 

0.0 
5100.0 
3300.0 
2800.0 



0.0 
2.0 
8.0 
8.0 
2.0 
9.0 
9.0 
23.0 



DIVISION - COURSE CE 453 

PROJECT TITLE - CONSTRUCTION PROJECT NETWORK 

TIME UNIT - DAYS 
COST UNIT - DOLLARS 

ACTIVITY COUNT - 9 
EVENT COUNT - 7 



COST 
17 JULY 63 



FUNCTION 



SCHEDULE 
NUMBER 



OPTIMAL 
DIRECT 
COST 



PROJECT CRITICAL 
DURATION ACTIVITIES 



INDIRECT 
COST 



TOTAL 
COST 



15100.0 
15900.0 
18300.0 
20550.0 
22950.0 



33.0 
31.0 
27.0 
25.0 
23.0 



0.0 
0.0 
0.0 



15100.0 
15900.0 
18300.0 
20550.0 
22950.0 



END OF JOB 



